home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO70.LSP < prev    next >
Text File  |  1986-09-23  |  813b  |  22 lines

  1. (Defun C:Import ()
  2.        (Prompt "Developed by T. Schaefer and J. Brittain\n")
  3.        (Setq FNAME (Getstring "ASCII text file name: "))
  4.        (Setq THGT (Getreal "Text height: "))
  5.        (Setq LSPACE (Getreal "Line spacing: "))
  6.        (Setq JUST (Getstring "Justification, LCR: <L> "))
  7.        (Setq PT1 (Getpoint "Insertion point of first text line: "))
  8.        (Setq FILE (Open FNAME "r"))
  9.        (Setq TLINE (Read-line FILE))
  10.        (If (= JUST "")
  11.            (Setq JUST nil)
  12.        )
  13.        (While (Or nil TLINE)
  14.               (If (null JUST)
  15.                   (Command "Text" PT1 THGT 0 TLINE)
  16.                   (Command "Text" JUST PT1 THGT 0 TLINE)
  17.               )
  18.               (Setq PT1 (List (Car PT1) (- (Cadr PT1) LSPACE)))
  19.               (Setq TLINE (Read-line FILE))
  20.        )
  21. )
  22.